Load packages
library(tidyverse)
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages ------------------------------------------
filter(): dplyr, plotly, stats
lag(): dplyr, stats
I downloaded the file into R
download.file("https://raw.githubusercontent.com/swcarpentry/r-novice-gapminder/gh-pages/_episodes_rmd/data/gapminder-FiveYearData.csv", destfile = "data/gapminder-FiveYearData.csv")
gapminder <- read.csv("data/gapminder-FiveYearData.csv")
I wonder what is the life expectancy over the years

interactive version

if(!require("plotly")){install.packages("plotly")}
library(plotly)
p <- ggplot(data = gapminder[gapminder$continent=="Americas",], aes(x=gdpPercap,y=lifeExp,color=continent,by=country))+
geom_point()+
scale_x_log10()+
geom_smooth(method = "lm")+
facet_wrap(~country)+
xlab("Gross Domestic Product")+
ylab("Life Expectancy")
p
ggplotly(p)
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6DQogIHBkZl9kb2N1bWVudDoNCiAgICB0b2M6IHllcw0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQogICAgdG9jX2Zsb2F0OiB5ZXMNCi0tLQ0KDQpMb2FkIHBhY2thZ2VzDQpgYGB7cn0NCg0KbGlicmFyeSh0aWR5dmVyc2UpDQoNCmBgYA0KDQpJIGRvd25sb2FkZWQgdGhlIGZpbGUgaW50byBSIA0KYGBge3J9DQoNCmRvd25sb2FkLmZpbGUoImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9zd2NhcnBlbnRyeS9yLW5vdmljZS1nYXBtaW5kZXIvZ2gtcGFnZXMvX2VwaXNvZGVzX3JtZC9kYXRhL2dhcG1pbmRlci1GaXZlWWVhckRhdGEuY3N2IiwgZGVzdGZpbGUgPSAiZGF0YS9nYXBtaW5kZXItRml2ZVllYXJEYXRhLmNzdiIpDQoNCmdhcG1pbmRlciA8LSByZWFkLmNzdigiZGF0YS9nYXBtaW5kZXItRml2ZVllYXJEYXRhLmNzdiIpDQpgYGANCmBgYHtyfQ0KaGVhZChnYXBtaW5kZXIpDQpgYGANCg0KDQpJIHdvbmRlciB3aGF0IGlzIHRoZSBsaWZlIGV4cGVjdGFuY3kgb3ZlciB0aGUgeWVhcnMNCg0KYGBge3J9DQpnZ3Bsb3QoZGF0YSA9IGdhcG1pbmRlciwgYWVzKHg9eWVhcix5PWxpZmVFeHApKStnZW9tX3BvaW50KCkNCmBgYA0KDQppbnRlcmFjdGl2ZSB2ZXJzaW9uDQpgYGB7cn0NCmlmKCFyZXF1aXJlKCJwbG90bHkiKSl7aW5zdGFsbC5wYWNrYWdlcygicGxvdGx5Iil9DQpsaWJyYXJ5KHBsb3RseSkNCg0KcCA8LSBnZ3Bsb3QoZGF0YSA9IGdhcG1pbmRlcltnYXBtaW5kZXIkY29udGluZW50PT0iQW1lcmljYXMiLF0sIGFlcyh4PWdkcFBlcmNhcCx5PWxpZmVFeHAsY29sb3I9Y29udGluZW50LGJ5PWNvdW50cnkpKSsNCiAgZ2VvbV9wb2ludCgpKw0KICBzY2FsZV94X2xvZzEwKCkrDQogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIpKw0KICBmYWNldF93cmFwKH5jb3VudHJ5KSsNCiAgeGxhYigiR3Jvc3MgRG9tZXN0aWMgUHJvZHVjdCIpKw0KICB5bGFiKCJMaWZlIEV4cGVjdGFuY3kiKQ0KDQpwDQpnZ3Bsb3RseShwKQ0KYGBgDQoNCg0KDQo=